﻿Module Module1

    Sub Main()
        Dim numSr As String
        Dim num As Integer
        Console.Title = "Bucles for 1"

        Do
            Console.Write("Introduce un número positivo : ")
            numSr = Console.ReadLine()
        Loop Until IsNumeric(numSr) AndAlso CInt(numSr) > 0

        num = CInt(numSr)
        Console.Write("Los números entre 1 y " & num & " son : ")
        For i As Integer = 1 To num
            Console.Write(i & " ")
        Next
        Console.ReadKey()

    End Sub

End Module
